Aminet 31/Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso/Aminet/comm/bbs/cnet5demo.lha/InstallCNet_Dist

Text File | 1999-03-23 | 22KB | 995 lines

; $VER: CNet Install 1.05 (7.29.98)
(set CNetVersion "4.29")

; CNet PRO 4 Installation script
;
; The publishers of CNet PRO 4 wish to extend many THANKS to Bob Maple
; for the creation of this install script, (version 1.0 (12.13.93))
; His elegant work has been chopped and hacked by others since then,
; so if you find something here that looks sloppy, DON'T BLAME BOB!
;
; Requires Commodore 'Installer' program
;
; Slight tweaks by Jim Selleck for CNet/3 release version 3.04, 3.05c
;
; Updated for CNet/4 install by Ray Akey

; This installation script is provided AS-IS, with no warranties expressed
; or implied.  The authors will not be held responsible for any damages due
; to the use or mis-use of this installation script; using this script is
; entirely at your own risk.

;
; Define some global variables
;

(set help-modify-self

    (cat        "If you have modified any of these files, "
            "you might want to skip this part and manually "
            "look for any changes/modify them yourself."
    )
)

(set ask-install-part    "Please select the partition/directory to " )
(set ask-install-part2  "install the master CNET directory."        )
(set ask-install-nodir  "(NOTE: A directory will NOT be created.)\n")


;
; BEGIN PROCEDURE DEFINITION
;
; The installer script basically consists of a series of calls to different
; procedures which install certain sets of data, depending on whether or not
; they are a new-installer or an update-installer.
;

(procedure    CopyExecutables1    ; Copies executables/etc from disk 1
(

    (copyfiles

        (source "cnet")
        (dest   "CNET:")

        (choices

            "bbs"        "bbsroom0"    "bbswake"    "big_numbers"
            "close"        "config"    "control"    "cron"
            "file-task"    "mail-task"    "news-task"    "setpass"
            "toss"        "unlock"    "vde"        "vde2"
            "yank-task"    "subboardutil"    "eraseallusers"
        )

        (optional "nofail" "askuser")
    )

    ; Makes sure the PURE bit is set, saving millions of people asking
    ; why this new version eats so much RAM.

    (protect "CNet:BBS" "+r +w +e +d +p")

    (copyfiles

        (source "cnet/doors")
        (dest    "cnet:doors")

        (all)
        (optional "nofail" "askuser")
    )

)
)






(procedure    CopyExecutables2    ; Copies executables from disk 2
(

    (copyfiles

        (source "sys/c")
        (dest    "sys:C"  )

        (all)
        (optional "nofail" "askuser")
    )

    (copyfiles

        (source "sys/fonts")
        (dest    "sys:FONTS"  )

        (all)
        (optional "nofail" "askuser")
    )

    (copyfiles

        (source "sys/l")
        (dest    "sys:L" )

        (all)
        (optional "nofail" "askuser")
    )

    (message "\nThe cnet.library is a shared library which CNet "
        "and other utilities require on your system.  Other libraries "
                "that are listed below are required by CNet Amiga."

    (help    "These libraries are installed in LIBS: and are required "
        "by CNet, and possibly used by other external utilities, including "
        "the possibility of some 3rd-party programs. If you are upgrading "
                "from a previous version of CNet, you should always install the newest "
                "libraries"
    )
    )

    (copyfiles

        (source "sys/libs")
        (dest    "sys:Libs"  )

        (all)
        (optional "nofail" "askuser")
    )

)
)


(procedure    CopyConfigs
(
    (makedir "CNET:CONFIGS")
    (copyfiles

        (source  "cnet/bbsconfig.def")
        (dest     "cnet:configs/")
        (newname "bbsconfig4")

        (files)
        (optional "nofail" "askuser")
    )
)
)



(procedure    CopyStandards
(
    (copyfiles

        (source "cnet")
        (dest   "CNET:")

        (choices

            "BIG_Numbers" "bbsroom0"
        )

        (optional "nofail" "askuser")
    )
)
)



(procedure    CopySysdata
(

    (copyfiles

        (source "cnet/sysdata")
        (dest    "sysdata:")

        (all)
        (optional "nofail" "askuser")
    )
)
)



(procedure    CopySpeller
(
    (set    DestPath

        (askdir

            (prompt    "\nPlease select where you want to install the speller "
                "master dictionary "
                ask-install-nodir
            )
            (help    "The dictionary can be anywhere you choose (suggestion: "
                "CNet:Spell).  Note that you must set up this path "
                "with CONFIG as well.  Consult your CNet manual."
            )

            (default "CNet:Spell")
        )
    )

    (copyfiles

        (source "cnet/Spell")
        (dest    DestPath)

        (pattern "#?")
        (files)
        (optional "nofail" "askuser")
    )

)
)


(procedure    CopyMenus
(
    (copyfiles

        (source "cnet/systext/menu")
        (dest    "SysText:Menu")

        (all)
        (optional "nofail" "askuser")
    )

)
)



(procedure    CopyHelp
(
    (copyfiles

        (source "cnet/systext/help")
        (dest    "SysText:Help")

        (all)
        (optional "nofail" "askuser")
    )

)
)

(procedure    CopyTextMenu
(
    (if
        (exists "CNet:bbsmenu" (noreq))

        ; TRUE statement
        (
            (copyfiles

                (source "cnet/!bbsmenu_stock")
                (dest    "CNet:")
                (optional "nofail")
            )
        )

        ; FALSE statement
        (
            (copyfiles

                (source "cnet/!bbsmenu_stock")
                (dest    "CNet:")
                (newname "bbsmenu")
                (optional "nofail")
            )
        )
    )

    (if
        (exists "CNet:bbstext" (noreq))

        ; TRUE statement
        (
            (copyfiles

                (source "cnet/!bbstext_stock")
                (dest    "CNet:")
                (optional "nofail")
            )
        )

        ; FALSE statement
        (
            (copyfiles

                (source "cnet/!bbstext_stock")
                (dest    "CNet:")
                (newname "bbstext")
                (optional "nofail")
            )
        )
    )

)
)

(procedure    CopyNew
(
    (copyfiles

        (source "cnet/systext/new")
        (dest    "SysText:New")

        (all)
        (optional "nofail" "askuser")
    )

)
)



;
; BEGIN MASTER INSTALL PROCEDURES
;
; The following two procedures handle new installations and update
; installations, calling the proper procedures defined above as well as
; doing other specialized tasks.
;

(procedure    DoUpdateInstall
(
    (CopyExecutables1)
    (CopyTextMenu)

    (if
        (askbool

            (prompt "\nDo you want to re-install the menu files?")
            (help    "Copies all the menu files into SYSTEXT:Menu. "
                help-modify-self
            )
        )

        ; TRUE (Yes) statement
        (
            (CopyMenus)
        )
    )

    (if
        (askbool

            (prompt "\nDo you want to re-install the help files?")
            (help    "Copies all the help files into SYSTEXT:Help. "
                help-modify-self
            )
        )

        ; TRUE (Yes) statement
        (
            (CopyHelp)
        )
    )

    (if
        (askbool

            (prompt "\nDo you want to re-install the new-user files?")
            (help    "Copies all the new-user help files into SYSTEXT:New.\n\n"
                "The new-user files are all the pieces of text "
                "which describe questions new users are asked when "
                "logging in, as well as the public and sysop questions.\n\n"
                help-modify-self
            )
        )

        ; TRUE (Yes) statement
        (
            (CopyNew)
        )
    )

    (CopyExecutables2)

    (if
        (askbool

            (prompt "\nDo you want to re-install the CNet speller dictionary?" )
            (help    "This master-dictionary rarely changes, and chances "
                "are you have added words to it yourself already. "
                "It is recommended that you skip this part of the "
                "update installation if you have made any changes "
                "to your dictionary."
            )
        )

        ; TRUE (Yes) statement
        (
            (CopySpeller)
        )
    )


    (message

        "\nUpdate installed.  CNet:BBSTEXT and "
        "CNet:BBSMENU were NOT installed.  Most CNet SysOps "
        "have heavily modified these files. There are several utilities "
        "available which can detect changes and help transfer those "
        "changes into your CURRENT files, saving you from "
        "starting over completely from scratch.\n\nCheck the update "
        "section of your CNet manual and the UPDATE directory "
        "where the cnet archive was decompressed.  There may be conversion files to run or "
        "other file renaming procedures needed before you can "
        "run your CNet update.\n\n"
        "The newer bbstext and bbsmenu files have been installed in your CNET: "
        "directory titled as !bbstext_stock and !bbsmenu_stock, respectively."
    )

    (if
        (askbool

            (prompt "\nYou should also run the VDE programs "
                "to create/update your system VDE files.\n\n"
                "Do you wish to run the VDE executables now?"
            )
            (help    "VDE is a simple utility that creates the required system "
                "VDE (Visual Data Editor) files.  See your CNet manual for more info."
            )
        )

        ; TRUE statement
        (
            (run "run CNet:VDE"  )
            (run "run CNet:VDE2" )
        )
    )

    (if
        (askbool

            (prompt "\nDo you will to run the CNet CONFIG program now?"
            )
            (help    "CONFIG is the CNet utility that allows you to "
                "configure/customize/personalize your BBS."
            )
        )

        ; TRUE statement
        (
            (run "run CNet:CONFIG" )
        )
    )

    (if